home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed4.d64 / co-ordinates (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  18KB  |  731 lines
  1. 1 GOTO910
  2. 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
  3. 3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
  4. 4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
  5. 5 [153]"hhhhhhh`  
  6. 6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
  7. 7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
  8. 10 PRINT" WE WILL GO ON TO OTHER THINGS.
  9. 35 [158]UU,15
  10. 40 [151]UC,0:[151]UN,0:UR$[178]"":UI$[178]"":[139]UL[178]0[167]UL[178]39
  11. 45 [161]UI$:[139]UI$[178]""[167]45
  12. 50 UA[178][198](UI$):UR[178][195](UR$):[139]UA[178]13[175]UR[177]0[167][151]UC,1:[153]" CMD";:[137]75
  13. 55 [139]UA[178]20[167][145][171](UR[178]0)[137]45:UR$[178][200](UR$,UR[171]1):[153]"CMD  CMDCMD";:[137]45
  14. 60 [139]UR[178]UL[167]45
  15. 65 [141]95:UR$[178]UR$[170]UI$:[153]UI$;:[137]45
  16. 75 [129]UI[178]UR[164]1[169][171]1:[139][202](UR$,UI,1)[178]" "[167][130]
  17. 80 UR$[178][200](UR$,UI):[153]:[142]
  18. 95 [139][195](US$)[178]0[167]110
  19. 100 [129]UI[178]1[164][195](US$):[139]UI$[179][177][202](US$,UI,1)[167][130]:UI$[178]""
  20. 105 [142]
  21. 110 [139]UA[178]46[167][142]
  22. 115 [139]UA[178]32[175]UR[179][177]0[167][142]
  23. 120 [139]UA[177]47[175]UA[179]58[167][142]
  24. 125 [139]UA[177]64[175]UA[179]91[167][142]
  25. 130 [139]UA[179]193[176]UA[177]218[167]UI$[178]"":[142]
  26. 135 [139][194](UT)[178]UU%[167]UI$[178][199](UA[171]128)
  27. 140 [142]
  28. 155 UZ[178]0:US$[178]UJ$:UG$[178]UK$:UT$[178]UL$:UP[178]UJ:UL[178]UK:[153]"LOAD";:[151]UY,6:[151]UX,6
  29. 160 [151]UT,UV%:[151]251,0:[151]252,UF:[151]253,0:[151]254,US[173]256:[158]UV:[158]UU,15
  30. 165 [151]U1,U1%:[151]U2,U2%:[151]U3,U3%:[151]U4,U4%:[153]"CMD";:[139]FG[178]0[167][137]35
  31. 166 [142]
  32. 400 [153]"LOAD":[151]UT,UL%:[151]UY,5:[151]UX,5:[151]646,0
  33. 405 [153]"              RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null) WAIT"
  34. 410 [153]"   (null)HIS PROGRAM TEACHES AND TESTS"
  35. 415 [153]" ON GRAPHING POINTS AND GIVING
  36. 420 PRINT" COORDINATES OF POINTS."
  37. 425 PRINT"   [212]O MOVE THE POINT AROUND WHEN "
  38. 430 PRINT" GRAPHING, USE THE KEYS MARKED [195][210][211][210][146]"
  39. 435 PRINT" AND [211][200][201][198][212][146]. [212]HE ARROW POINTS IN THE
  40. 440 [153]" DIRECTION THE POINT WILL MOVE.
  41. 445 GOSUB820
  42. 450 PRINT"[147] [201]F YOU USE THE [211][200][201][198][212][146] KEY WITH THE"
  43. 455 PRINT" [195][210][211][210][146] KEY THEN THE POINT WILL MOVE "
  44. 460 PRINT" IN THE DIRECTION OF THE UPPER ARROW."
  45. 465 PRINT" [201]F YOU USE THE [195][210][211][210][146] KEY BY ITSELF"
  46. 470 PRINT" THE POINT WILL MOVE IN THE DIRECTION"
  47. 475 PRINT" OF THE LOWER ARROW."
  48. 485 GOSUB820
  49. 490 POKEUT,UU%
  50. 495 RETURN
  51. 700 REM <YES> SOUND
  52. 705 S=54272:FORE=STOS+28:POKEE,0:NEXT
  53. 710 POKE54296,15:POKE54277,42:POKE54278,250
  54. 715 POKE54276,23:POKE54273,23:POKE54272,191
  55. 720 FORT=1TO100:NEXT:POKE54276,32:FORT=1TO200:NEXT
  56. 725 POKE54296,0:RETURN
  57. 730 REM <NO> SOUND
  58. 735 S=54272:FORE=STOS+28:POKEE,0:NEXT
  59. 740 POKE54296,15:POKE54277,18:POKE54278,242
  60. 745 POKE54276,33:POKE54273,4:POKE54272,18
  61. 750 FORT=1TO300:NEXT:POKE54276,32:FORT=1TO400:NEXT
  62. 755 POKE54296,0:RETURN
  63. 760 REM <BLIP> SOUND
  64. 765 S=54272:FORE=STOS+28:POKEE,0:NEXT
  65. 770 POKE54296,8:POKE54277,42:POKE54278,250
  66. 775 POKE54276,23:POKE54273,23:POKE54272,191
  67. 780 FORT=1TO30:NEXT:POKE54276,32:FORT=1TO50:NEXT
  68. 785 POKE54296,0:RETURN
  69. 790 FORT=1TO500:NEXT:RETURN
  70. 791 FORT=1TO1000:NEXT:RETURN
  71. 792 FORT=1TO2000:NEXT:RETURN
  72. 793 FORT=1TO3000:NEXT:RETURN
  73. 794 FORT=1TO4000:NEXT:RETURN
  74. 795 FORT=1TO5000:NEXT:RETURN
  75. 800 PRINT"[147]";:POKEUT,UU%:POKEUY,0:POKEUX,0:POKE646,5
  76. 801 PRINT"      A TPUG EDUCATIONAL PROGRAM
  77. 802 [153]"         FOR THE C 64 COMPUTER
  78. 803 PRINT"              GRADES 3-6 ":GOSUB791
  79. 804 PRINT"                                        [146]";
  80. 805 PRINT"                                        [146]";
  81. 806 PRINT"                                        [146]";
  82. 807 PRINT"             CO-ORDINATES               [146]";
  83. 808 PRINT"                                        [146]";
  84. 809 PRINT"                                        [146]";
  85. 810 PRINT"                                        [146]":GOSUB792:GOSUB760
  86. 811 PRINT"         INSTRUCTIONS?  Y/N
  87. 812 [161]UI$:[139]UI$[179][177]"Y"[175] UI$[179][177]"N"[167]812
  88. 813 [139]UI$[178]"Y"[167] [141]790:[141]400
  89. 814 [153]"LOAD AND AWAY WE GO..............":[141]792:[141]700
  90. 815 [137] 1000
  91. 820 [141]791:[141]760
  92. 823 [151]UN,0:[153][200](UD$,24);" (null)RESS (null)(null)ATNLENVALCLOSEPEEKATN(null) TO CONTINUE WAIT"
  93. 825 [161]UI$:[139]UI$[179][177]" "[167]825
  94. 830 [142]
  95. 835 [141]791:[141]760
  96. 837 [151]UN,0:[153][200](UD$,24);"PRESS SPACE BAR TO CONTINUEWAIT"
  97. 840 [161]UI$:[139]UI$[179][177]" "[167]840
  98. 845 [142]
  99. 850 UP[178]UP[170]1:[153]"LOAD"[200](UT$[170]UP$,21);[201](UP$[170]UG$[170][196](UP),18)
  100. 855 [153]" --------------------------------------"
  101. 860 [139]UH[178]0[167][153][200](UD$,24);[200](UP$,7);"ANSWER, THEN PRESS RETURNWAIT"
  102. 865 UH[178]0:[153]"":[142]
  103. 875 [153][200](UD$,24);"           ONE MOMENT PLEASE...     ":[142]
  104. 900 US[178]1024:U1[178]209:U2[178]210:U3[178]211:U4[178]214:UC[178]204:UB[178]2048:UX[178]53280:UD[178]2064
  105. 902 UT[178]53272:UU%[178]21:UL%[178]23:UP%[178]2151:UN[178]198:UY[178]53281:UU[178]2199:UE[178]2087
  106. 904 UC$[178][199](155):UV[178]1214:UF[178]196:UV[178]2238
  107. 905 UD$[178]"":UP$[178]"                                      "
  108. 909 [142]
  109. 910 [141]900:[153]"LOAD":[153]"CLOSE"
  110. 920 [137] 800
  111. 1000 [153]"LOAD"UC$;:[140]:[151]UY,0:[151]UX,0:[151]UT,UU%
  112. 1010 [156]:[141]900:UP[178]0:UT$[178]" COORDINATES"
  113. 1150 [141]791
  114. 1280 [153]"LOAD        *******":[158]UU,15
  115. 1290 [153]"       *       *
  116. 1300 REM PRINT"      *  HI!    *
  117. 1310 [153]"      *  I AM A *
  118. 1320 PRINT"      *  POINT  *
  119. 1330 [153]"       *       *
  120. 1340 PRINT"        ****** *
  121. 1350 [153]"              **
  122. 1360 PRINT"                *":GOSUB791
  123. 1370 FOR I=1TO6:
  124. 1380 FORJ=1TO 40:POKEUS+418,32:NEXTJ
  125. 1390 FORJ=1TO 40:POKEUS+418,81:NEXTJ
  126. 1400 NEXT
  127. 1420 PRINT"        *******
  128. 1430 [153]"       *       *
  129. 1440 PRINT"      * I AM A  *
  130. 1450 [153]"      *  LINE!  *
  131. 1460 PRINT"       *       *
  132. 1470 [153]"        ***** *
  133. 1480 PRINT"             **
  134. 1490 [153]"               *":[141]791
  135. 1500 [153]"
  136. 1510 PRINT"  [192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192]
  137. 1520 [153]"   -5 -4 -3 -2 -1  0 +1 +2 +3 +4 +5 "
  138. 1530 [141]793:[141]835
  139. 1560 [153]"LOAD      *******************":[158]UU,15
  140. 1570 [153]"     *                   *
  141. 1580 PRINT"    * I WILL MOVE AROUND  *
  142. 1590 [153]"   *  AND TRY TO HIDE ON   *
  143. 1600 PRINT"   *  THE LINE. YOU TRY TO *
  144. 1610 [153]"    *  FIND ME. O.K.?      *
  145. 1620 PRINT"     *                    *
  146. 1630 [153]"      ****************  **
  147. 1640 PRINT"                     * *
  148. 1650 [153]"                     **
  149. 1660 PRINT"                     *
  150. 1670 [153]"":[129]I[178]1[164]5
  151. 1680 [129]J[178]1[164]40:[151]US[170]621,32:[130]J
  152. 1690 [129] J[178]1[164]40:[151]US[170]621,81:[130] J
  153. 1700 [130] I
  154. 1710 [141]835
  155. 1730 [153]"LOAD HERE ARE A FEW EXAMPLES FOR YOU.":[158]UU,15
  156. 1740 [153]" FIRST TRY TO GUESS THE ANSWER IN YOUR "
  157. 1750 [153]" HEAD.  DO NOT TYPE THE ANSWERWAIT":[141]794
  158. 1780 [153]"  TANTAN(null)TANTAN(null)TANTAN(null)TANTAN(null)TANTAN(null)TANTAN(null)TANTAN(null)TANTAN(null)TANTAN(null)TANTAN(null)TANTAN(null)TANTAN"
  159. 1790 [153]"   -5 -4 -3 -2 -1  0 +1 +2 +3 +4 +5"
  160. 1800 [129]P[178]1[164]10:[129] I[178]1[164]40:[151]US[170]207,91:[130]I
  161. 1810 [129] I[178]1[164]40:[151]US[170]207,81:[130]I
  162. 1820 [130]P
  163. 1830 [141]700:[153]"  I WAS AT -4WAIT":[141]794
  164. 1840 [153]"  * HERE IS ANOTHER EXAMPLE"
  165. 1850 [153]"  TANTAN(null)TANTAN(null)TANTAN(null)TANTAN(null)TANTAN(null)TANTAN(null)TANTAN(null)TANTAN(null)TANTAN(null)TANTAN(null)TANTAN(null)TANTAN"
  166. 1860 [153]"   -5 -4 -3 -2 -1  0 +1 +2 +3 +4 +5"
  167. 1870 [129]P[178]1[164]10:[129] I[178]1[164]40:[151]US[170]462,91:[130]I
  168. 1880 [129] I[178]1[164]40:[151]US[170]462,81:[130]I
  169. 1890 [130]P
  170. 1900 [141]700:[153]"  I WAS AT +1WAIT":[141]794
  171. 1910 [153]"  * HERE IS A THIRD EXAMPLE"
  172. 1920 [153]"  TANTAN(null)TANTAN(null)TANTAN(null)TANTAN(null)TANTAN(null)TANTAN(null)TANTAN(null)TANTAN(null)TANTAN(null)TANTAN(null)TANTAN(null)TANTAN"
  173. 1930 [153]"   -5 -4 -3 -2 -1  0 +1 +2 +3 +4 +5ON"
  174. 1940 [129]P[178]1[164]10:[129]I[178]1[164]40:[151]US[170]751,91:[130] I
  175. 1950 [129]I[178]1[164]40:[151]US[170]751,81:[130] I
  176. 1960 [130]P
  177. 1970 [141]700:[153]"  I WAS AT +4WAIT"
  178. 1980 [141]794:[141]835
  179. 2000 [153]"LOAD HERE ARE A FEW FOR YOU TO TRY.":[141]792:[158]UU,15
  180. 2005 [153]" WHEN YOU GET 5 CORRECT ANSWERS "
  181. 2010 [153]" WE WILL GO ON TO OTHER THINGS.
  182. 2015 GOSUB794
  183. 2020 C=1:W=0:P=0
  184. 2030 IFP=7 THEN GOSUB5770
  185. 2040 FOR I=US+322TOUS+352 STEP 3
  186. 2050 POKEI,64
  187. 2060 POKEI+1,64
  188. 2070 POKEI+2,91
  189. 2080 NEXT
  190. 2090 POKEI,64
  191. 2100 POKEI+1,64
  192. 2110 X=INT(11*RND(1))
  193. 2120 A=-5+X
  194. 2130 POKE US+324+3*X,81
  195. 2140 PRINT"-5 -4 -3 -2 -1  0 +1 +2 +3 +4 +5":GOSUB760
  196. 2150 PRINT"    TYPE IN THE PROPER LOCATION             THEN PRESS RETURN[146]  ";
  197. 2160 US$="0123456789-+":UL=2:GOSUB35:N=VAL(UR$)
  198. 2170 IF N=A THEN GOSUB700:GOTO2250
  199. 2180 GOSUB7120
  200. 2190 GOSUB730:W=W+1
  201. 2200 IF W<4THEN Z$="TRY NO."+STR$(W)+". YOU'VE GOT "+STR$(4-W)+" LEFT"
  202. 2202 IF W<4THEN GOSUB7250:GOSUB8000:PRINT"[145][145]":GOTO 2150
  203. 2210 Z$=" THE CORRECT ANSWER WAS "+STR$(A):W=0:GOSUB7250:GOSUB835
  204. 2230 P=P+1
  205. 2240 GOTO2270
  206. 2250 W=0:GOSUB6980
  207. 2260 C=C+1:P=P+1
  208. 2270 GOSUB 791
  209. 2280 PRINT"[147]":SYSUU,15
  210. 2290 IF C<6THEN PRINT" TRY ANOTHER ONE":GOSUB760:GOTO 2030
  211. 2300 PRINT"       YOU GOT 5 CORRECT ANSWERS."
  212. 2310 PRINT"       DO YOU WANT TO TRY 5 MORE? ":GOSUB760
  213. 2315 PRINT"                 Y OR N[157][157][157]";
  214. 2320 GETR$:IFR$<>"Y"ANDR$<>"N"THEN2320
  215. 2330 IFR$="Y"THENRESTORE:GOTO2020
  216. 2340 PRINT"[147] RETURNING TO THE DISK MENU.
  217. 2345 [147]"MENU",8
  218. 2350 [138]
  219. 2355 [128]
  220. 2370 [141]5510
  221. 2380 [151]US[170]502,124
  222. 2390 [151]US[170]496,123
  223. 2400 [151]US[170]465,123
  224. 2410 [151]US[170]533,124
  225. 2420 [151]US[170]468,126
  226. 2430 [151]US[170]530,108
  227. 2440 [151]US[170]431,123
  228. 2450 [151]US[170]567,124
  229. 2460 [151]US[170]434,126
  230. 2470 [151]US[170]564,108
  231. 2480 [141]780
  232. 2490 [153]"LOAD":[158]UU,15
  233. 2500 [141]5510
  234. 2510 [151]US[170]462,123
  235. 2520 [151]US[170]536,124
  236. 2530 [151]US[170]424,108
  237. 2540 [151]US[170]574,126
  238. 2550 [151]US[170]387,123
  239. 2560 [151]US[170]611,124
  240. 2570 [151]US[170]349,108
  241. 2580 [151]US[170]649,126
  242. 2590 [151]US[170]312,123
  243. 2600 [151]US[170]686,124
  244. 2610 [129] I[178]1[164]300:[130]
  245. 2620 [153]"LOAD":[158]UU,15
  246. 2630 [141]5510
  247. 2640 [151]US[170]461,124
  248. 2650 [151]US[170]537,123
  249. 2660 [151]US[170]424,126
  250. 2670 [151]US[170]574,108
  251. 2680 [151]US[170]346,123
  252. 2690 [151]US[170]652,124
  253. 2700 [151]US[170]308,126
  254. 2710 [151]US[170]690,108
  255. 2720 [151]US[170]230,123
  256. 2730 [151]US[170]768,124
  257. 2740 [129]I[178]1[164]300:[130]
  258. 2750 [153]"LOAD":[158]UU,15
  259. 2760 [141]5510
  260. 2770 [151]US[170]461,124
  261. 2780 [151]US[170]537,123
  262. 2790 [151]US[170]383,108
  263. 2800 [151]US[170]615,126
  264. 2810 [151]US[170]345,124
  265. 2820 [151]US[170]653,123
  266. 2830 [151]US[170]267,108
  267. 2840 [151]US[170]731,126
  268. 2850 [151]US[170]229,126
  269. 2860 [151]US[170]769,108
  270. 2870 [129]I[178]1[164]300:[130]
  271. 2880 [153]"LOAD":[158]UU,15
  272. 2890 [141]5510
  273. 2900 [151]US[170]421,123
  274. 2910 [151]US[170]577,124
  275. 2920 [151]US[170]382,124
  276. 2930 [151]US[170]616,123
  277. 2940 [151]US[170]304,123
  278. 2950 [151]US[170]694,124
  279. 2960 [151]US[170]226,123
  280. 2970 [151]US[170]772,124
  281. 2980 [151]US[170]187,124
  282. 2990 [151]US[170]811,123
  283. 3000 [129]I[178]1[164]300:[130]
  284. 3010 [153]"LOAD":[158]UU,15
  285. 3020 [141]5510
  286. 3030 [151]US[170]420,108
  287. 3040 [151]US[170]578,126
  288. 3050 [151]US[170]342,123
  289. 3060 [151]US[170]656,124
  290. 3070 [151]US[170]303,126
  291. 3080 [151]US[170]695,108
  292. 3090 [151]US[170]224,124
  293. 3100 [151]US[170]774,123
  294. 3110 [151]US[170]146,123
  295. 3120 [151]US[170]852,124
  296. 3130 [129]I[178]1[164]300:[130]
  297. 3140 [153]"LOAD":[158]UU,15
  298. 3150 [141]5510
  299. 3160 [151]US[170]420,123
  300. 3170 [151]US[170]578,124
  301. 3180 [151]US[170]341,123
  302. 3190 [151]US[170]657,124
  303. 3200 [151]US[170]262,123
  304. 3210 [151]US[170]736,124
  305. 3220 [151]US[170]183,123
  306. 3230 [151]US[170]815,124
  307. 3240 [151]US[170]143,124
  308. 3250 [151]US[170]855,123
  309. 3260 [129]I[178]1[164]300:[130]
  310. 3270 [153]"LOAD":[158]UU,15
  311. 3280 [141]5510
  312. 3290 [151]US[170]419,124
  313. 3300 [151]US[170]579,123
  314. 3310 [151]US[170]339,124
  315. 3320 [151]US[170]659,123
  316. 3330 [151]US[170]260,123
  317. 3340 [151]US[170]738,124
  318. 3350 [151]US[170]180,108
  319. 3360 [151]US[170]818,126
  320. 3370 [151]US[170]101,123
  321. 3380 [151]US[170]897,124
  322. 3390 [129]I[178]1[164]300:[130]
  323. 3400 [153]"LOAD":[158]UU,15
  324. 3410 [141]5510
  325. 3420 [141]5650
  326. 3430 [153]" THIS IS A CO-"
  327. 3440 [153]" ORDINATE AXIS."
  328. 3450 [141]835
  329. 3470 [153]"LOAD THIS IS A NAME FOR A POINT--(4,2)":[158]UU,15
  330. 3475 [141]794
  331. 3480 [153]" IT HAS TWO NUMBERS CALLED CO-ORDINATES."
  332. 3485 [141]794
  333. 3490 [153]" THE FIRST NUMBER IS THE X CO-ORDINATE."
  334. 3495 [141]794
  335. 3500 [153]" IT TELLS YOU HOW FAR TO GO IN THE "
  336. 3510 [153]" X (HORIZONTAL) DIRECTION."
  337. 3520 [141]790:[141]5510
  338. 3530 [141]835
  339. 3550 [153]"LOAD THE SECOND NUMBER":[158]UU,15
  340. 3560 [153]" IS THE Y"
  341. 3570 [153]" CO-ORDINATE."
  342. 3575 [141]794
  343. 3580 [153]" IT TELLS YOU HOW "
  344. 3590 [153]" FAR TO GO IN THE"
  345. 3600 [153]" Y (VERTICAL)"
  346. 3610 [153]" DIRECTION."
  347. 3615 [141]790
  348. 3620 [141]5650
  349. 3630 [141]835
  350. 3650 [153]"LOAD":[158]UU,15
  351. 3660 US[178]US[170]2:[141]5510
  352. 3670 [141]5650:US[178]US[171]2
  353. 3680 [153]" ANY POINT ON THIS"
  354. 3690 [153]" SCREEN CAN BE"
  355. 3700 [153]" LOCATED BY SAYING"
  356. 3710 [153]" HOW FAR WE ARE TO"
  357. 3720 [153]" GO IN EACH"
  358. 3730 [153]" DIRECTION OF X"
  359. 3740 [153]" AND Y."
  360. 3745 [141]795
  361. 3750 [153]" FOR EXAMPLE, LET US
  362. 3760 PRINT" LOCATE THE POINT
  363. 3770 [153]" (2,4) ON THE SCREEN."
  364. 3775 [141]794
  365. 3780 [153]" FIRST WE WILL GO"
  366. 3790 [153]" 2 UNITS IN THE"
  367. 3800 [153]" HORIZONTAL (X) DIR."
  368. 3810 [153]" THEN 4 UNITS IN THE"
  369. 3820 [153]" VERTICAL (Y) DIR."
  370. 3825 [141]794
  371. 3830 [141]835
  372. 3850 [153]"LOAD":[158]UU,15
  373. 3860 [141]5510
  374. 3870 [141]5650
  375. 3880 [153]" FIRST 2 IN THE"
  376. 3890 [153]" XWAIT DIRECTION."
  377. 3895 [141]793
  378. 3900 [141]835:[153]""
  379. 3920 X[178]2
  380. 3930 [141] 6130
  381. 3940 [153]" NOW 4 IN THE"
  382. 3950 [153]" YWAIT DIRECTION."
  383. 3955 [141]794
  384. 3960 [141]835
  385. 3980 Y[178]4
  386. 3990 [141]6390
  387. 4000 [141]835
  388. 4020 [153]"LOAD LET'S TRY ":[158]UU,15
  389. 4030 [153]" ANOTHER EXAMPLE"
  390. 4040 [153]" LIKE (-3,-4).":[141]5510
  391. 4050 [141]5650
  392. 4060 X[178][171]3:Y[178][171]4
  393. 4070 [141]835
  394. 4090 [141]6080
  395. 4100 [141]6330:[141]835
  396. 4110 [153]"LOAD     IN THE NEXT EXAMPLES YOU PICK":[158]UU,15
  397. 4120 [153][166]5)"AN XWAIT AND A YWAIT VALUE BETWEEN"
  398. 4130 [153][166]5)"-5 AND +5.":[141]793
  399. 4140 [153][166]5)"I WILL THEN SHOW YOU HOW TO FIND"
  400. 4150 [153][166]5)"THAT PLACE ON THE GRAPH.":[141]794
  401. 4160 [141]835
  402. 4190 [153]"LOAD         YOUR VALUE FOR X":[158]UU,15
  403. 4200 [153][166]9) "BETWEEN -5 AND +5? ";
  404. 4210 US$[178]"012345-+":UL[178]2:[141]35:X[178][197](UR$)
  405. 4220 [139]X[179][171]5 [176] X[177]5 [137]4190
  406. 4230 [153][166]9)"YOUR VALUE FOR Y "
  407. 4240 [153][166]9)"BETWEEN -5 AND +5? ";
  408. 4250 US$[178]"012345-+":UL[178]2:[141]35:Y[178][197](UR$)
  409. 4260 [139] Y[179][171]5 [176] Y[177]5[167][153]"ON";:[141]730:[137]4240
  410. 4290 [141]760:[153]"LOAD("X","Y")":[158]UU,15
  411. 4300 [141]5510
  412. 4310 [141]5650
  413. 4320 [141]6130
  414. 4330 [141]6330:[141]760
  415. 4340 [153]"      DO YOU WANT ANOTHER ONE?  Y/N ";
  416. 4350 US$[178]"YN":UL[178]1:[141]35:A$[178]UR$
  417. 4360 [139]A$[178]"Y"[137]4190
  418. 4370 [153]"LOAD  LET'S TRY SOME THE OTHER WAY.":[158]UU,15:[141]793
  419. 4380 [153][166]2)"I WILL GIVE YOU THE X AND Y VALUE"
  420. 4390 [153][166]2)"I WANT YOU TO LOCATE.":[141]793
  421. 4430 [153][166]2)"I WILL SHOW YOU THE POINT I WANT YOU"
  422. 4440 [153][166]2)"TO FIND ON THE TOP LEFT HAND CORNER"
  423. 4450 [153][166]2)"AND YOU MOVE THE DOT TO THE RIGHT
  424. 4460 PRINTSPC(2)"PLACE ON THE GRID USING THE CRSR[146] KEYS. " :GOSUB795
  425. 4470 PRINTSPC(2)"WHEN FINISHED PRESS THE SPACE[146] BAR.":GOSUB792
  426. 4490 GOSUB835
  427. 4520 C=1:REM COUNT NO. OF QUESTS.
  428. 4530 PRINT"[147]( X , Y )":SYSUU,15
  429. 4540 D=INT(11*RND(1))
  430. 4550 X=D-5
  431. 4560 E=INT(11*RND(1))
  432. 4570 Y=E-5
  433. 4580 W=0:REM SET WRONG COUNTER
  434. 4590 PRINT"  (";X;",";Y;")"
  435. 4600 GOSUB 5510
  436. 4610 GOSUB 5650
  437. 4640 GOSUB 6670
  438. 4650 IFA=US+499+3*X-80*Y THEN GOSUB760:GOTO4790
  439. 4660 IFT$="TEST"GOTO5330
  440. 4670 GOSUB730:PRINT"[147] TRY AGAIN":SYSUU,15
  441. 4680 W=W+1
  442. 4690 IFW<3 GOTO4590
  443. 4700 PRINT"[147] HERE IS WHERE":SYSUU,15
  444. 4710 PRINT" IT SHOULD BE.":GOSUB760
  445. 4720 PRINT" (";X;",";Y;")"
  446. 4730 GOSUB5510
  447. 4740 GOSUB5650
  448. 4750 POKEUS+499+3*X-80*Y,81
  449. 4760 GOSUB835
  450. 4780 GOTO4530
  451. 4790 C=C+1
  452. 4800 IFT$="TEST"GOTO5360
  453. 4810 IF C=5 GOTO 4860
  454. 4815 GOSUB700
  455. 4820 PRINT"[147]    VERY GOOD.  HERE IS ANOTHER ONE":SYSUU,15
  456. 4830 GOSUB792
  457. 4850 GOTO 4530
  458. 4860 PRINT"[147] WELL THAT IS THE END OF THE ":SYSUU,15
  459. 4870 PRINT" INSTRUCTIONS.  THE LAST PART OF THIS"
  460. 4880 PRINT" MODULE IS A SHORT QUIZ TO SEE HOW WELL
  461. 4882 [153]" YOU UNDERSTOOD THE LESSON."
  462. 4890 [141]835
  463. 4920 [153]"LOAD IN THIS QUIZ I WILL ASK YOU 10":[158]UU,15
  464. 4930 [153]" QUESTIONS TO ANSWER"
  465. 4940 C[178]0
  466. 4950 [153]" 1.WHAT IS THE X CO-ORDINATE OF (2,-3)? "
  467. 4960 [153]"   ";:US$[178]"0123456789-+":UL[178]2:[141]35:AN[178][197](UR$)
  468. 4970 [139] AN[178]2 [167] C[178]C[170]1:[141]700:[137]4990
  469. 4980 W[178]W[170]1:[141]730
  470. 4990 [153]" 2.WHAT IS THE Y CO-ORDINATE? ";
  471. 5000 US$[178]"0123456789+-":UL[178]2:[141]35:AN[178][197](UR$)
  472. 5005 [139]AN[178][171]3[167]C[178]C[170]1:[141]700:[137]5020
  473. 5010 [141]730:W[178]W[170]1
  474. 5020 X[178]3:Y[178][171]1:[153]"LOAD":[158]UU,15
  475. 5030 [141] 5510:[141] 5650
  476. 5040 [141] 6130:[141] 6380
  477. 5050 [153][163]20)"3.  WHAT IS THE"
  478. 5060 [153][163]20)"    X CO-ORDINATE":[141]760:[153][163]20)"    OF THE POINT? ";
  479. 5070 US$[178]"0123456789-+":UL[178]2:[141]35:AN[178][197](UR$)
  480. 5075 [139]AN[178]3[167]C[178]C[170]1:[141]700:[137]5090
  481. 5080 W[178]W[170]1:[141]730
  482. 5090 [153][163]20)"4.  WHAT IS THE"
  483. 5100 [153][163]20)"    Y CO-ORDINATE":[141]760:[153][163]20)"    OF THE PT? ";
  484. 5110 US$[178]"0123456789+-":UL[178]2:[141]35:AN[178][197](UR$)
  485. 5115 [139]AN[178][171]1[167]C[178]C[170]1:[141]700:[137]5130
  486. 5120 W[178]W[170]1:[141]730
  487. 5130 X[178][171]4:Y[178][171]2:[153]"LOAD":[139]UW[178]0[167][158]UU,15
  488. 5140 [141]5510:[141]5650
  489. 5150 [141]6130:[141]6380
  490. 5160 [153][163]20)"5.  WHAT IS THE"
  491. 5170 [153][163]20)"    X CO-ORDINATE":[141]760
  492. 5180 [153][163]20)"    OF THE PT? ";
  493. 5190 US$[178]"0123456789+-":UL[178]2:[141]35:AN[178][197](UR$)
  494. 5195 [139]AN[178][171]4[167]C[178]C[170]1:[141]700:[137]5210
  495. 5200 W[178]W[170]1:[141]730:[141]790
  496. 5210 [153][163]20)"6.  WHAT IS THE"
  497. 5220 [153][163]20)"    Y CO-ORDINATE"
  498. 5230 [153][163]20)"    OF THE PT? ";
  499. 5240 US$[178]"0123456789+-":UL[178]2:[141]35:AN[178][197](UR$)
  500. 5245 [139]AN[178][171]2[167]C[178]C[170]1:[141]700:[137]5260
  501. 5250 W[178]W[170]1:[141]730
  502. 5260 [153]"LOAD    IN THE FOLLOWING QUESTIONS I":[158]UU,15
  503. 5270 [153]"    WILL GIVE YOU A CO-ORDINATE AND"
  504. 5280 [153]"    YOU MUST MOVE THE POINT TO THAT"
  505. 5290 [153]"    PLACE."
  506. 5300 [141]835
  507. 5310 T$[178]"TEST":NT [178]0:[137]4530
  508. 5330 W[178]W[170]1:NT[178]NT[170]1
  509. 5340 [139]NT[178]4 [137]5390
  510. 5350 [137]4530
  511. 5360 NT[178]NT[170]1
  512. 5370 [139]NT[178]4 [137]5390
  513. 5380 [137]4530
  514. 5390 [153]"LOAD THAT IS THE END OF THE QUIZ":[158]UU,15
  515. 5400 [153]" YOU DID 10 QUESTIONS AND GOT"
  516. 5410 [153]""C;"CORRECT"
  517. 5420 [153]" YOUR SCORE IS";C[172]10;"%"
  518. 5430 [153]"              *****"
  519. 5440 [139]C[179]6 [167][153]" THAT IS NOT VERY GOOD. PLEASE ASK YOUR"
  520. 5442 [139]C[179]6 [167][153]" TEACHER FOR HELP"
  521. 5450 [139]C[177]8 [167][153][163]11)"****VERY GOOD****"
  522. 5465 [153]"LOAD RETURNING TO THE DISK MENU
  523. 5470 LOAD"MENU",8
  524. 5475 RUN
  525. 5480 END
  526. 5490 REM * SUBPRO. DRAW X AXIS *
  527. 5500 REM ***********************
  528. 5510 FOR I=US+482TOUS+514STEP3
  529. 5520 POKE I,64
  530. 5530 POKE I+1,64
  531. 5540 POKE I+2,91
  532. 5550 NEXT
  533. 5560 POKE I,64
  534. 5570 POKE I+1,64
  535. 5580 POKE I+2,24
  536. 5590 RETURN
  537. 5600 REM
  538. 5610 REM ***********************
  539. 5620 REM * SUBPRO. DRAW Y AXIS *
  540. 5630 REM ***********************
  541. 5640 REM
  542. 5650 POKEUS+19,25
  543. 5660 FORI=US+59TOUS+859STEP80
  544. 5670 POKEI,93
  545. 5680 POKEI+40,91
  546. 5690 NEXT
  547. 5700 POKEI,93
  548. 5710 RETURN
  549. 5720 REM
  550. 5730 REM **************************
  551. 5740 REM * SUBPRO. EXTRA HELP FOR *
  552. 5750 REM * NUMBER LINE            *
  553. 5760 REM **************************
  554. 5770 PRINT"[147] YOU SEEM TO BE HAVING SOME TROUBLE":IFUW=0THENSYSUU,15
  555. 5780 K=0
  556. 5790 PRINT" WITH THIS IDEA.":FORI=1TO1000:NEXT I
  557. 5800 PRINT" HERE IS WHAT WE ARE DOING...":FORI=1TO1000:NEXT I
  558. 5810 PRINT" THIS IS A LINE WITH NUMBERS ON IT."
  559. 5820 FORI=1TO1000:NEXT I
  560. 5830 FORI=US+442TOUS+472 STEP 3
  561. 5840 POKE I,64
  562. 5850 POKE I+1,64
  563. 5860 POKE I+2,91
  564. 5870 NEXT
  565. 5880 POKE I,64:POKEI+1,64
  566. 5890 X=INT(11*RND(1))
  567. 5900 A=-5+X
  568. 5910 POKEUS+444+3*X,81
  569. 5920 PRINT"-5 -4 -3 -2 -1  0 +1 +2 +3 +4 +5"
  570. 5930 FORI=1TO600:NEXTI
  571. 5940 PRINT" SOMEWHERE ON THAT LINE IS A DOT."
  572. 5950 FORI=1TO8
  573. 5960 FORJ=1TO40:POKEUS+404+3*X,32:NEXTJ
  574. 5970 FORJ=1TO40:POKEUS+404+3*X,30:NEXTJ
  575. 5980 NEXTI
  576. 5990 PRINT""
  577. 6000 PRINT" THE ARROW POINTS TO THE NUMBER: ";
  578. 6010 US$="0123456789-+":UL=2:GOSUB35:N=VAL(UR$)
  579. 6020 IF N<>A THEN PRINT"[145][145]":GOTO 6000
  580. 6030 PRINT"                             GOOD"
  581. 6035 K=K+1:FORI=1TO1000
  582. 6040 NEXT I
  583. 6050 IF K>=3 THEN6060
  584. 6051 PRINT"[147]":SYSUU,15
  585. 6052 PRINT"[147]"
  586. 6054 IFUW=0THENSYSUU,15
  587. 6055 GOTO 5820
  588. 6060 PRINT"[147]":SYSUU,15
  589. 6070 RETURN
  590. 6080 REM
  591. 6090 REM ***********************
  592. 6100 REM * SUBPRO. RUNNING DOT *
  593. 6110 REM * IN X DIRECTION      *
  594. 6120 REM ***********************
  595. 6130 Q=48
  596. 6140 R=US+499
  597. 6150 IFX<=0GOTO6240
  598. 6160 FOR I =1TOX
  599. 6170 POKE R+3*(I-1),91
  600. 6180 POKE R+3*I,81
  601. 6190 POKE R+3*I-40,Q+I
  602. 6200 FOR J=1TO1000:NEXT
  603. 6210 NEXT I
  604. 6220 I=I-1
  605. 6230 RETURN
  606. 6240 FOR I=0TOX STEP -1
  607. 6250 POKE R+3*(I+1),91
  608. 6260 POKE R+3*I,81
  609. 6270 POKE R+3*I-41,45
  610. 6280 POKE R+3*I-40,Q-I
  611. 6290 FOR J=1TO1000:NEXT
  612. 6300 NEXT I
  613. 6310 I=1+I
  614. 6320 RETURN
  615. 6330 REM
  616. 6340 REM **************************
  617. 6350 REM * SUBPRO. TO MOVE DOT IN *
  618. 6360 REM * Y DIRECTION            *
  619. 6370 REM **************************
  620. 6380 IFY<=0 GOTO 6480
  621. 6390 POKER+3*I,91
  622. 6400 FOR J=1TOY
  623. 6410 POKE R+3*I-80*J,81
  624. 6420 POKE R+3*I-80*J+1,Q+J
  625. 6430 FORK=1TO1000:NEXT
  626. 6440 POKE R+3*I-80*J,32
  627. 6445 IFX*Y=0THENPOKER+3*I-80*J,91
  628. 6450 NEXTJ
  629. 6460 POKE R+3*I-80*(J-1),81
  630. 6470 RETURN
  631. 6480 POKE R+3*I,91
  632. 6490 FOR J=0TOY STEP-1
  633. 6500 POKE R+3*I-80*J,81
  634. 6510 POKE R+3*I-80*J+1,45
  635. 6520 POKE R+3*I-80*J+2,Q-J
  636. 6530 FOR K=1TO1000:NEXT
  637. 6540 IF J=0 GOTO6570
  638. 6545 POKE R+3*I-80*J,32
  639. 6550 IFX*Y=0THENPOKE R+3*I-80*J,91
  640. 6560 GOTO 6580
  641. 6570 POKE R+3*I,91
  642. 6580 NEXTJ
  643. 6590 POKER+3*I-80*(J+1),81
  644. 6600 RETURN
  645. 6610 REM
  646. 6620 REM *************************
  647. 6630 REM * SUBPR. CURSER CONTROL *
  648. 6640 REM *     OF POINT          *
  649. 6650 REM *************************
  650. 6660 REM
  651. 6670 REM
  652. 6671 PRINT " USE CURSOR KEYS"
  653. 6672 PRINT " TO MOVE BALL"
  654. 6673 PRINT " HIT SPACE BAR"
  655. 6674 PRINT " TO ENTER GUESS"
  656. 6679 A=US+499
  657. 6680 POKE A,91
  658. 6690 B=PEEK(A)
  659. 6700 POKEUS+499,81
  660. 6710 GET C$:IFC$=""GOTO6710
  661. 6720 IF C$=CHR$(32) GOTO6970
  662. 6730 IF C$=CHR$(17) GOTO6770
  663. 6740 IF C$=CHR$(29) GOTO6820
  664. 6750 IF C$=CHR$(145) GOTO6870
  665. 6760 IF C$=CHR$(157) GOTO6920
  666. 6762 FG=0:IFC$="H"THENFG=1:GOSUB145
  667. 6765 GOTO6710
  668. 6770 IFA>US+24*40-1THENGOTO6710
  669. 6775 POKE A,B
  670. 6780 B=PEEK(A+40)
  671. 6790 POKE A+40,81
  672. 6800 A=A+40
  673. 6810 GOTO 6710
  674. 6820 IFA-US-INT((A-US)/40)*40=39THENGOTO6710
  675. 6825 POKE A,B
  676. 6830 B=PEEK(A+1)
  677. 6840 POKE A+1,81
  678. 6850 A=A+1
  679. 6860 GOTO6710
  680. 6870 IFA<US+40THENGOTO6710
  681. 6875 POKE A,B
  682. 6880 B=PEEK(A-40)
  683. 6890 POKE A-40,81
  684. 6900 A=A-40
  685. 6910 GOTO6710
  686. 6920 IFA-US-INT((A-US)/40)*40=0THENGOTO6710
  687. 6925 POKE A,B
  688. 6930 B=PEEK(A-1)
  689. 6940 POKE A-1,81
  690. 6950 A=A-1
  691. 6960 GOTO6710
  692. 6970 RETURN
  693. 6980 REM
  694. 6990 REM ************************
  695. 7000 REM * SUBPRO. FOR 5 RANDOM *
  696. 7010 REM *    GOOD STATEMENTS   *
  697. 7020 REM ************************
  698. 7030 REM
  699. 7040 I=INT(5*RND(1)+1)
  700. 7050 GOSUB700:ON I GOTO 7060,7070,7080,7090,7100
  701. 7060 Z$="YOU SEEM TO BE GETTING THIS":GOTO7110
  702. 7070 Z$="CORRECT!":GOTO7110
  703. 7080 Z$="GOOD WORK":GOTO7110
  704. 7090 Z$="WELL DONE":GOTO7110
  705. 7100 Z$="GREAT":GOTO7110
  706. 7110 PRINTTAB((40-LEN(Z$))/2)Z$:RETURN
  707. 7120 REM
  708. 7130 REM ************************
  709. 7140 REM * SUBPRO. FOR 5 RANDOM *
  710. 7150 REM *    BAD STATEMENTS    *
  711. 7160 REM ************************
  712. 7170 REM
  713. 7180 I=INT(5*RND(1)+1)
  714. 7190 GOSUB730:ON I GOTO 7200,7210,7220,7230,7240
  715. 7200 Z$="YOU GOT IT WRONG":GOTO7250
  716. 7210 Z$="SORRY THAT'S NOT RIGHT":GOTO7250
  717. 7220 Z$="WRONG ANSWER":GOTO7250
  718. 7230 Z$="NOT CORRECT":GOTO7250
  719. 7240 Z$="MAYBE YOU NEED MORE HELP":GOTO7250
  720. 7250 PRINTTAB((40-LEN(Z$))/2)Z$:RETURN
  721. 8000 FORA1=1TO800:NEXT:FORA1=US+PEEK(U4)*40-200TOUS+PEEK(U4)*40:POKEA1,32:NEXT:
  722. 8010 PRINT"[145][145][145][145][145][145][145][145]":RETURN
  723. 8999 :
  724. 9000 REM DERIVED FROM COMMODORE ONTARIO EDUCATIONAL SOFTWARE PROJECT 1983
  725. 9010 REM PROJECT DIRECTOR: FRANK WINTER
  726. 9020 REM PROGRAM NAME: CO-ORDINATES
  727. 9030 REM WRITTEN BY ROGER CARBOTTE"
  728. 9040 [143] REVISED BY P.E. SULLIVAN
  729. 9050 [143] UPDATED BY BILL CUMBERLAND 90
  730. 9100 [143] WHC 90:11:29
  731.